home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 13 / CU Amiga Magazine's Super CD-ROM 13 (1997)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1997-08].iso / CUCD / Graphics / Ghostscript / data / gslp.ps < prev    next >
Text File  |  1997-04-12  |  15KB  |  512 lines
  1. %    Copyright (C) 1991, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % gslp.ps - format and print text
  19.  
  20. % This utility provides functionality approximately equivalent to the Unix
  21. % `enscript' program.  It prints plain text files using a single font.
  22. % It currently handles tabs and formfeeds, but not backspaces.
  23. % It only works with fixed-pitch fonts.
  24. % Standard flags implemented:
  25. %    -12BclqRr -b -f -F -L -p
  26. % Sun flags implemented:
  27. %    -T<n>    set tab width
  28. % Flags ignored:
  29. %    -GghKkmow -# -C -d -J -n -P -S -s -t -v
  30. % Flags added:
  31. %    --detect
  32. %        treats the file as PostScript if it starts with %!
  33. %    --(heading|footing)-(left|center|right) <string>
  34. %        sets the heading/footing fields; use -B first to clear
  35. %    --first-page <n>
  36. %        sets the first page to print
  37. %    --last-page <n>
  38. %        sets the last page to print
  39. %    --spacing <n>
  40. %        for double (n=2), triple (n=3), etc. spacing
  41. % Also, the string %# in a heading or footing is replaced with the page #.
  42. /PageNumberString (%#) def
  43.  
  44. /lpdict 150 dict def
  45. lpdict begin
  46.  
  47. % build iso-latin-1 version of a font
  48. /font-to-iso-latin-1 {    % <font> font-to-iso-latin-1 <font>
  49.     %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  50.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  51.     /Encoding ISOLatin1Encoding def currentdict end
  52.     dup /FontName get 80 string cvs (-ISOLatin1) concatstrings cvn 
  53.     exch definefont
  54. } def
  55.  
  56. /find-latin-font {    % <name> find-latin-font <font>
  57.   findfont font-to-iso-latin-1
  58. } def
  59.  
  60. % Define the initial values of the printing parameters.
  61.  
  62. /BodyFont null def        % use default
  63.   /defaultBodyFont
  64.     { /Courier find-latin-font Landscape { 7 } { 10 } ifelse scalefont } def
  65. /Columns 1 def
  66. /DetectFileType false def
  67. /Footers false def
  68. /FootingLeft () def
  69. /FootingCenter () def
  70. /FootingRight () def
  71. /Headers true def
  72. /HeadingLeft () def
  73. /HeadingCenter () def
  74. /HeadingRight (page ) PageNumberString concatstrings def
  75. /HeadingFont null def        % use default
  76.   /defaultHeadingFont
  77.     { /Courier-Bold find-latin-font 10 scalefont } def
  78. /Landscape false def
  79. /MarginBottom 36 def        % 1/2"
  80. /MarginLeft 36 def        % 1/2"
  81. /MarginRight 36 def        % 1/2"
  82. /MarginTop 36 def        % 1/2"
  83. /MaxLines 9999 def        % max lines per page
  84. /Noisy true def            % i.e., not quiet
  85. /OutFile null def        % null = write directly to device
  86. /PageFirst 1 def
  87. /PageLast 99999 def
  88. /Spacing 1 def
  89. /Tab 8 def
  90. /Truncate false def        % wrap long lines, don't truncate
  91.  
  92. % When writing to a file, we want to write out PostScript;
  93. % when writing to the printer, we want to execute it;
  94. % some commands should be executed regardless.
  95. % lpexec provides for all this.
  96.  
  97. /lpexec        % <arg1> ... <argn> </op> <n> <do_always> lpexec -
  98.  { OutFile null eq
  99.     { pop 1 add true
  100.     }
  101.     { /t exch def 1 add /n exch def cvx
  102.       n { n -1 roll dup wosp } repeat
  103.       OutFile (\n) writestring
  104.       n t
  105.     }
  106.    ifelse
  107.     { pop load exec }
  108.     { { pop } repeat }
  109.    ifelse
  110.  } def
  111.  
  112. /lpmoveto
  113.  { /moveto 2 true lpexec
  114.  } def
  115. /lpshow
  116.  { dup length 0 ne { /show 1 false lpexec } { pop } ifelse
  117.  } def
  118. /lpsetmyfont
  119.  { dup load setfont
  120.    OutFile null ne { cvx /setfont 1 false lpexec } { pop } ifelse
  121.  } def
  122.  
  123. % Define some utility procedures.
  124.  
  125. /banner        % ypos left center right
  126.  { /HFont lpsetmyfont
  127.    3 -1 roll bannerstring pop 0 4 index pwidth showline2 pop
  128.    exch bannerstring pwidth exch sub 2 div 3 index pwidth showline2 pop
  129.    bannerstring pwidth exch sub
  130.    3 -1 roll pwidth showline2 pop
  131.  } def
  132.  
  133. /bannerstring    % string -> string width
  134.   { PageNumberString search
  135.      { exch pop pindex 4 string cvs concatstrings exch concatstrings
  136.      }
  137.     if dup stringwidth pop
  138.   } def
  139.  
  140. /beginpage
  141.  { /lindex 0 def
  142.    /skipping pindex PageFirst ge pindex PageLast le and not def
  143.    /save 0 true lpexec /pagesave exch def
  144.    skipping { nulldevice   /OutFile null def } if
  145.    Headers
  146.     { lheight hdescent add
  147.       HeadingLeft HeadingCenter HeadingRight banner
  148.     } if
  149.    /BFont lpsetmyfont
  150.  } def
  151.  
  152. /endpage
  153.  { lindex 0 ne
  154.     { Footers
  155.        { topskip plength sub hdescent add
  156.          FootingLeft FootingCenter FootingRight banner
  157.        } if
  158.       /showpage 0 false lpexec
  159.     } if
  160.    pagesave /restore 0 true lpexec
  161.    /pindex pindex 1 add def
  162.  } def
  163.  
  164. /fontheight    % <font> fontheight <ascent> <height>
  165.  { gsave setfont
  166.    newpath 0 0 moveto
  167.    (|^_j) false charpath
  168.    pathbbox exch pop dup 2 index sub 4 -2 roll pop pop
  169.    grestore exch 1.25 mul exch 1.25 mul
  170.  } def
  171.  
  172. /wosp
  173.  { OutFile ( ) writestring OutFile exch write==only
  174.  } def
  175.  
  176. /outfont        % name font ->
  177.  { OutFile null ne
  178.     { exch wosp
  179.       dup /FontName get 
  180.       dup wosp OutFile ( findfont) writestring
  181.       %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  182.       OutFile ( 
  183.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  184.     /Encoding ISOLatin1Encoding def currentdict end
  185.       ) writestring
  186.       wosp OutFile (-ISOLatin1 exch definefont) writestring
  187.       /FontMatrix get 0 get 1000 mul round cvi wosp
  188.       OutFile ( scalefont def\n) writestring
  189.     }
  190.     { pop pop
  191.     }
  192.    ifelse
  193.  } def
  194.  
  195. /StringFF (\f) def
  196. /CharFF StringFF 0 get def
  197. /StringTAB (\t) def
  198. /CharTAB StringTAB 0 get def
  199.  
  200. /showline        % line -> leftover_line (handles \f)
  201.  {  { showline1 dup length 0 eq { exit } if
  202.       dup 0 get CharFF ne { exit } if
  203.       endpage beginpage
  204.       skip1
  205.     }
  206.    loop
  207.  } def
  208.  
  209. /showline1        % line -> leftover_line (handles page break)
  210.  { lindex llength eq { endpage beginpage } if
  211.    lindex colines idiv cowidth mul        % x
  212.    lindex colines mod 1 add lheight mul neg fascent sub    % y
  213.    1 index cowidth add
  214.    showline2
  215.    /lindex lindex 1 add def
  216.  } def
  217.  
  218. /showline2    % string x y xlimit -> leftover_string (handles tabs)
  219.  { 2 index exch 5 2 roll lpmoveto    % xinit xlimit string
  220.     { showline3 dup length 0 eq { exit } if
  221.       dup 0 get CharTAB ne { exit } if
  222.       currentpoint exch 4 index sub tabwx div
  223.     0.05 add ceiling tabwx mul 4 index add exch lpmoveto
  224.       skip1
  225.       currentpoint pop 2 index ge { exit } if
  226.     }
  227.    loop exch pop exch pop
  228.  } def
  229.  
  230. /showline3    % xlimit string -> xlimit leftover_string
  231.         % (finds line break / tab / formfeed)
  232.  { currentpoint pop 2 index exch sub
  233.      cwx div 0.1 add cvi 0 max 1 index length min
  234.    1 index 0 3 -1 roll getinterval
  235.     % look for \f or \t
  236.    StringFF search { exch pop exch pop } if
  237.    StringTAB search { exch pop exch pop } if
  238.    dup lpshow
  239.    length dup 2 index length exch sub getinterval
  240.  } def
  241.  
  242. /skip1
  243.  { dup length 1 sub 1 exch getinterval
  244.  } def
  245.  
  246. /e== {        % <object> e== - -- print an object to stderr
  247.   (%stderr) (w) file dup 3 -1 roll write==only flushfile
  248. } def
  249.  
  250. /eprint {    % <string> eprint - -- print a string to stderr
  251.   (%stderr) (w) file dup 3 -1 roll writestring flushfile
  252. } def
  253.  
  254. % The main printing procedure
  255.  
  256. /lp        % file initial_chars ->
  257.  { /lpline exch def
  258.    /lpfile exch def
  259.    /save 0 true lpexec
  260.  
  261. % Initialize the device and fonts.
  262.    /BFont
  263.      BodyFont null eq { defaultBodyFont } { BodyFont } ifelse def
  264.    /BFont BFont outfont
  265.    Headers Footers or
  266.     { /HFont
  267.     HeadingFont null eq { defaultHeadingFont } { HeadingFont } ifelse def
  268.       /HFont HFont outfont
  269.     }
  270.    if
  271.  
  272. % Get the layout parameters.
  273.    clippath
  274.    Landscape { 90 /rotate 1 true lpexec } if
  275.    BFont setfont ( ) stringwidth pop /cwx exch def
  276.      cwx Tab mul /tabwx exch def
  277.    BFont fontheight /fheight exch def /fascent exch def
  278.    Headers Footers or { HFont fontheight } { 0 0 } ifelse
  279.      /hheight exch def /hascent exch def
  280.      /hdescent hheight hascent sub def
  281.    fheight Spacing mul /lheight exch def
  282.    Headers { hheight lheight add } { 0 } ifelse
  283.      /topskip exch def
  284.    Footers { hheight lheight add } { 0 } ifelse
  285.      /botskip exch def
  286.    /pskip topskip botskip add def
  287.     % Translate the page so that (0,0) corresponds to
  288.     % the top of the topmost body line.
  289.    pathbbox
  290.      2 index sub MarginBottom MarginTop add sub /plength exch def
  291.      2 index sub MarginLeft MarginRight add sub /pwidth exch def
  292.      pwidth Columns div /cowidth exch def
  293.      exch MarginLeft add
  294.      exch MarginBottom add plength add topskip sub
  295.      /translate 2 true lpexec
  296.    plength pskip sub lheight div cvi MaxLines min
  297.      dup /colines exch def
  298.      Columns mul /llength exch def
  299.    OutFile null ne { nulldevice } if
  300.  
  301. % Print layout
  302.    Noisy
  303.     { (Page height = ) eprint llength e==
  304.       (.\n) eprint flush
  305.     } if
  306.  
  307. % Disable stack recording so we can use stopped with readline.
  308.    $error /recordstacks false put
  309.  
  310. % Initialize for the first page.
  311.    /lbuf 1000 string def
  312.    /pindex 1 def
  313.    beginpage
  314.  
  315. % Iterate through the file.
  316.    lpline
  317.     { dup length /pos exch def
  318.       lbuf exch 0 exch putinterval
  319.        { lpfile lbuf pos lbuf length pos sub getinterval readline } stopped
  320.        {    % Filled the line before a CR or EOF.
  321.          exch pop showline
  322.        }
  323.        {    % Reached CR and/or EOF first.
  324.          exch length pos add lbuf exch 0 exch getinterval
  325.      1 index { showline } if        % omit final empty line
  326.       { dup length 0 eq Truncate or { pop () exit } if
  327.         showline
  328.       }
  329.      loop
  330.      exch not { exit } if
  331.        }
  332.       ifelse
  333.     } loop
  334.    pop
  335.  
  336. % Wrap up.
  337.    endpage
  338.    /restore 0 true lpexec
  339.  
  340.  } def
  341.  
  342. end
  343.  
  344. % Usage: <file> lp
  345. %   prints <file> using the current parameter settings.
  346. % Usage: [ <arg1> ... <argn> ] lpcommand
  347. %   interprets args like a command line.
  348.  
  349. /lp { save   lpdict begin () lp end   restore } def
  350.  
  351. lpdict begin
  352.  
  353. /splitfn        % (FontNNN) -> <font>
  354.  { dup /arg exch def length
  355.     { dup 0 le { exit } if
  356.       dup 1 sub arg exch get dup 48 ge exch 59 le and not { exit } if
  357.       1 sub
  358.     } loop
  359.    arg exch 0 exch getinterval dup cvn find-latin-font
  360.    exch arg exch anchorsearch pop pop cvr scalefont
  361.  } def
  362.  
  363. % Parse the command line switches.
  364.  
  365. /doswitch    % argn ... arg1 (-?) restofswitch ->
  366.  { exch dup cvn lpdict exch known
  367.     { cvn load exec }
  368.     { exch pop (Unknown switch: ) eprint eprint (\n) eprint }
  369.    ifelse
  370.  } def
  371.  
  372. /more        % argn ... arg1 restofswitch ->
  373.  { dup length 0 ne
  374.     { (- ) dup 1 3 index 0 get put
  375.       exch dup length 1 sub 1 exch getinterval
  376.       doswitch
  377.     }
  378.     { pop
  379.     }
  380.    ifelse
  381.  } def
  382.  
  383. /-- { (--) exch concatstrings
  384.       dup cvn lpdict exch known
  385.        { cvn load exec }
  386.        { (Unknown switch: ) eprint eprint (\n) eprint }
  387.       ifelse
  388.     } def
  389. /--columns { cvi 1 max /Columns exch def } def
  390. /--detect { /DetectFileType true def } def
  391. /--first-page { cvi /PageFirst exch def } def
  392. /--footing-center { /FootingCenter exch def   /Footers true def } def
  393. /--footing-left { /FootingLeft exch def   /Footers true def } def
  394. /--footing-right { /FootingRight exch def   /Footers true def} def
  395. /--heading-center { /HeadingCenter exch def   /Headers true def } def
  396. /--heading-left { /HeadingLeft exch def   /Headers true def } def
  397. /--heading-right { /HeadingRight exch def   /Headers true def } def
  398. /--margin-bottom { cvr 72.0 mul /MarginBottom exch def } def
  399. /--margin-left { cvr 72.0 mul /MarginLeft exch def } def
  400. /--margin-right { cvr 72.0 mul /MarginRight exch def } def
  401. /--margin-top { cvr 72.0 mul /MarginTop exch def } def
  402. /--last-page { cvi /PageLast exch def } def
  403. /--spacing { cvr /Spacing exch def } def
  404.  
  405. /-# { pop } def        % ignore
  406. /-+ { -- } def
  407. (-1)cvn { /Columns 1 def   more } def
  408. (-2)cvn { /Columns 2 def   more } def
  409. /-b { /HeadingLeft exch def   /HeadingCenter () def   /HeadingRight PageNumberString def
  410.       /Headers true def
  411.       /break true def
  412.     } def
  413. /-B { /HeadingLeft () def   /HeadingCenter () def   /HeadingRight () def
  414.       /Headers false def
  415.       /FootingLeft () def   /FootingCenter () def   /FootingRight () def
  416.       /Footers false def
  417.       /break true def
  418.       more
  419.     } def
  420. /-C { pop } def        % ignore
  421. /-c { /Truncate true def   more } def
  422. /-d { pop } def        % ignore
  423. /-f { splitfn /BodyFont exch def } def
  424. /-F { splitfn /HeadingFont exch def } def
  425. /-G { more } def    % ignore
  426. /-g { more } def    % ignore
  427. /-h { more } def    % ignore
  428. /-J { pop } def        % ignore
  429. /-K { more } def    % ignore
  430. /-k { more } def    % ignore
  431. /-l { 66 -L -B } def
  432. /-L { cvi /MaxLines exch def } def
  433. /-m { more } def    % ignore
  434. /-n { pop } def        % ignore
  435. /-o { more } def    % ignore
  436. /-p { (w) file /OutFile exch def   OutFile (%!\n) writestring } def
  437. /-P { pop } def        % ignore
  438. /-q { /Noisy false def   more } def
  439. /-r { /Landscape true def   more } def
  440. /-R { /Landscape false def   more } def
  441. /-S { pop } def        % ignore
  442. /-s { pop } def        % ignore
  443. /-T { cvi /Tab exch def } def
  444. /-v { pop } def        % ignore
  445. /-w { more } def    % ignore
  446.  
  447. /lp1        % filename ->
  448.  { break not { dup /HeadingLeft exch def } if
  449.    Noisy
  450.     { (Printing ) eprint dup eprint (\n) eprint 
  451.     } if
  452.    (r) file
  453.         % If requested, check for a PostScript file.
  454.    DetectFileType
  455.     { dup 2 string readstring pop dup (%!) eq
  456.        {    % Yes, it's a PostScript file.
  457.          pop dup 80 string readline pop pop cvx exec
  458.        }
  459.        { lp
  460.        }
  461.       ifelse
  462.     }
  463.     { () lp
  464.     }
  465.    ifelse
  466.  } bind def
  467.  
  468. /lpcstring 100 string def
  469.  
  470. end
  471.  
  472. /lpcommand        % [arg1 ... argn] -> -
  473.  {    % Push the commands on the stack in reverse order
  474.    mark exch
  475.    dup length 1 sub -1 0 { 1 index exch get exch } for pop
  476.    lpdict begin
  477.    /break false def
  478.     { dup mark eq { pop exit } if
  479.       dup length 2 ge { dup 0 get (-) 0 get eq } { false } ifelse
  480.        { dup 0 2 getinterval
  481.          exch dup length 2 sub 2 exch getinterval
  482.      doswitch
  483.        }
  484.        { dup  /matched false def
  485.           { /matched true def    lp1 } lpcstring filenameforall
  486.      matched { pop } { lp1 } ifelse        % let the error happen
  487.        }
  488.       ifelse
  489.     } loop
  490.    OutFile null ne
  491.     { OutFile (%stdout) (w) file ne { OutFile closefile } if
  492.       /OutFile null def
  493.     } if
  494.    end
  495.  } def
  496.  
  497. [ shellarguments
  498.  { ] dup length 0 ne
  499.     { lpcommand
  500.     }
  501.     { (Usage: gslp [-12BclqRr] [-b<header] [-f<font>] [-F<hfont>]\n) eprint
  502.       (        [-L<lines>] [-p<outfile>] [-T<tabwidth>] [--columns <n>]\n) eprint
  503.       (        [--detect] [--first-page <page#>] [--last-page <page#>]\n) eprint
  504.       (        [--(heading|footing)-(left|right|center) <string>]\n) eprint
  505.       (        [--margin-(top|bottom|left|right) <inches>]\n) eprint
  506.       (        [--spacing <n>] file1 ... filen\n) eprint
  507.     }
  508.    ifelse
  509.  }
  510.  { pop }
  511. ifelse
  512.